20000 REM LEERE SAETZE AUS EINER DATEI ELIMINIEREN -----------------------------
20020 I=0: REM ZAEHLER AUF NULL
20030 I=I+1:IFI=SZTHENRETURN
20040 :IFD$(I)=""THEND$(I)=D$(SZ):SZ=SZ-1:GOTO40
20050 GOTO20030